home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbpong1a / player.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-08-08  |  996 b   |  41 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "Player"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Private m_lpDDS As CDXVBSurface
  15. Public x As Long, y As Long, yvel As Long
  16.  
  17. Private Sub Class_Initialize()
  18.     Set m_lpDDS = New CDXVBSurface
  19. End Sub
  20.  
  21. Public Sub Init(nx As Long, ny As Long, FN As String, screen As CDXVBScreen)
  22.     m_lpDDS.Create FN, screen
  23.     x = nx
  24.     y = ny
  25.     yvel = 0
  26. End Sub
  27.  
  28. Public Sub SetVel(Amt)
  29.     yvel = Amt
  30. End Sub
  31.  
  32. Public Sub Move()
  33.     y = y + yvel
  34.     If y < 10 Then yvel = 0: y = 10
  35.     If y > 380 - m_lpDDS.m_PixelHeight Then yvel = 0: y = 380 - m_lpDDS.m_PixelHeight
  36. End Sub
  37.  
  38. Public Sub Draw(BackS As IDirectDrawSurface2)
  39.     m_lpDDS.Blit x, y, BackS
  40. End Sub
  41.